function figout = zambia_figExpPr(sd_F1vec,mPProf0,mPOV,sdf1)

%Graphs with baseline values of welfare parameters
set(0,'DefaultAxesFontName', 'Garamond')
set(0,'DefaultAxesFontSize', 16)

% Change default text fonts.
set(0,'DefaultTextFontname', 'Garamond')
set(0,'DefaultTextFontSize', 16)

figout = figure('NumberTitle','off','Position',[100, 100, 1200, 575]);
set(figout, 'PaperOrientation', 'landscape','Color', 'w')

subplot(1,2,1)
plot(sd_F1vec',mPProf0(:,2),'k-',sd_F1vec',mPOV(:,2),'k--')%,...
    title('A. No Reward (R=0), Full Subsidy'),axis([0 500 0 190]),xlabel('Uncertainty (standard deviation of F1)'),ylabel('Average profit per farmer, 000 ZMK')
    legend('Expected Profit: R=0','Option Value: R=0','Location','northwest');
hold on
line([sdf1,sdf1],[0.01,190],'LineStyle',':','Color',[0.8,0.8,0.8])
hold off


subplot(1,2,2)
plot(sd_F1vec',mPProf0(:,4),'k-',sd_F1vec',mPOV(:,4),'k--')%,...
    title('B. Large Reward (R=150), Full Subsidy'),axis([0 500 0 190]),xlabel('Uncertainty (standard deviation of F1)'),ylabel('Average profit per farmer, 000 ZMK')
    legend('Expected Profit: R=150','Option Value: R=150','Location','northwest');
hold on
line([sdf1,sdf1],[0.01,190],'LineStyle',':','Color',[0.8,0.8,0.8])
hold off

end
